'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   C o n t r o l _ 9 1 _ L e o P r o t o N e w P e n . t x t                         D a t e :   0 9   M a r   2 0 2 1 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '           N o t e :   P r o t o   v e r s i o n   h a v e   t h e   f o l l o w i n g   r u l e : 
 
 ' 	 	 	 M A =   B l k   G r e   R e d   B l u 
 
 ' 	 	 	 M B =   B l u   R e d   G r e   B l k 
 
 '                       M A = 1 0 0 0 / 0     M B = 1 0 0 0 / 0 
 
 '                       *   M B   h a v e   t h e   s t e p p e r   c o n n e c t o r   r o t a t e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 O p t i o n   S p e e d   9 
 
 L o a d   I m a g e s \ T a b l e t T e s t e r L e o P r o t o . j p g 
 
 ' L o a d   S o u n d \ g o n g . w a v 
 
 C O M   O p e n   1   1 1 5 2 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   O p t i o n s 
 
 K e y J o g _ S p e e d   =   1 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S o f t w a r e   l i m i t s 
 
 D e s t x M a x   =       2 4 5 	 '   2 4 6   b e f o r e   n e w   p e n   s y s t e m 
 
 D e s t x M i n   =           1 
 
 D e s t y M a x   =       1 3 8 
 
 D e s t y M i n   =           1 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 '   D i g i t a l   m o t o r s   f i n e   t u n i n g   s e t   u p 
 
 P E N _ D O W N               =   8 9 5   '   9 0 0   M o t o r     1 
 
 P E N _ U P                   =   8 6 0 
 
 P O W E R _ I N               =   9 5 0   '   M o t o r   2   m a i n   p o w e r   p l u g   i n s e r t 
 
 P O W E R _ O U T             =   1 0 0 
 
 O N O F F _ I N               =   7 5 0   '   M o t o r   3 
 
 O N O F F _ O U T             =   2 9 5 
 
 U S B P W R _ I N             =   5 8 8   '   M o t o r   4 
 
 U S B P W R _ O U T           =     9 5 
 
 H D M I _ I N                 =   9 8 0   '   M o t o r   5 
 
 H D M I _ O U T               =   1 3 6 
 
 U S B 3 _ I N                 =   9 4 0   '   M o t o r   6 
 
 U S B 3 _ O U T               =     7 9 
 
 U S B C _ I N                 =   2 8 6   '   M o t o r   7 
 
 U S B C _ O U T               =     2 8 
 
 V O L U M E _ I N _ U P       =   6 9 7   '   M o t o r   8 
 
 V O L U M E _ O U T           =   7 5 4 
 
 V O L U M E _ I N _ D W       =   7 9 4 
 
 H E A R S E T _ I N           =   9 8 5   '   M o t o r     9 
 
 H E A R S E T _ O U T         =     7 6 
 
 M E M O R Y _ I N             =   9 0 0   '   M o t o r   1 0 
 
 M E M O R Y _ O U T           =     1 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t _ S e n s o r X               =     7 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t _ S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t _ E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                     =   1 3   	 	 ' 2 _ T a b T e s t e r M o t   p i n   1   P W M F 
 
 S L O T _ H D M I                     =   1 5 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   3   P W M F 
 
 S L O T _ U S B P W R                 =   1 6 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   4   P W M F 
 
 S L O T _ O N O F F                   =   1 7 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   5   P W M F 
 
 S L O T _ P O W E R   	 	       =   1 8 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E                 =   2 5 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   1   P W M F 
 
 S L O T _ M E M O R Y                 =   2 6 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   2   P W M F 
 
 S L O T _ H E A R S E T               =   2 7 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   3   P W M F 
 
 S L O T _ P E N                       =   2 9 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   4   P W M F 
 
 S L O T _ U S B C                     =   2 8                   ' 2 _ T a b T e s t e r M o t   p i n   2   P W M F 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T A B L E T   P O W E R 
 
 S L O T _ T a b l e t P o w e r       =     9                   '   1 0 0 0   =   T a b l e t   o n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   E M E R G E N C Y   a n d   S P E E D 
 
 S l o t _ E m e r g e n c y           =   1 1 
 
 S l o t _ S p e e d                   =     6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S L O T S   F O R   S O U N D   T E S T S 
 
 S l o t _ R u n S c o p e                     =   3 7 
 
 S l o t _ S o u n d L e v e l                 =   4 1 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   4 3 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   4 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G   W I T H   M O U S E 
 
 J o g _ R a n g e X                 =   2 5 6                 ' 2 8 8 
 
 J o g _ R a n g e Y                 =   1 4 4 
 
 J o g _ E n a b l e _ S l o t       =   3 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 S l o t _ S 0       =     2 4 
 
 S l o t _ S 1       =     2 3 
 
 S l o t _ S 2       =     2 1 
 
 S l o t _ S 3       =     2 0 
 
 S l o t _ F r e q   =     2 2 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F I L E   S E T   U P 
 
 '   V a r i a b l e   S t r i n g   F i l e N a m e 
 
 '   F i l e N a m e   =   " T e s t _ R e s u l t s . t x t " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 
 
 ' L o a d   T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o G e n e r a t o r \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o I n p u t \ T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 ' L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K E Y S 
 
 K e y   R i g h t 	 	 G o s u b   E x e c K e y s 
 
 K e y   L e f t   	 	 G o s u b   E x e c K e y s 
 
 K e y   U p   	 	 	 G o s u b   E x e c K e y s 
 
 K e y   D o w n   	 	 G o s u b   E x e c K e y s 
 
 K e y   P a g e u p 	 	 G o s u b   P e n U p 
 
 K e y   P a g e d o w n 	 G o s u b   P e n D o w n 
 
 K e y   E n d           	 G o s u b   P e n S i n g l e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 
 
 S l o t   S l o t _ S 0   =   1 0 0 0 
 
 S l o t   S l o t _ S 1   =   1 0 0 0 
 
 
 
 ' W i n d o w   M i n S i z e 
 
 
 
 D e s t X   =   v 1 
 
 D e s t Y   =   v 2 
 
 
 
 G o s u b   V o l u m e O u t 
 
 G o s u b   P e n U p 
 
 G o s u b   S l e e p A l l S e r v o 
 
 G o s u b   M a i n M e n u 
 
 L o a d   H i d e 
 
 S t o p 	 	 	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 V a r i a b l e   N u m e r i c   D e s t x M a x 
 
 V a r i a b l e   N u m e r i c   D e s t x M i n 
 
 V a r i a b l e   N u m e r i c   D e s t y M a x 
 
 V a r i a b l e   N u m e r i c   D e s t y M i n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     C l e a r B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   T e x t   " " 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C l o s e A l l 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '       M E N U 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l   M a i n M e n u 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   D i s p l a y 
 
 	 B u t t o n   D i s p l a y   T e x t   " D I S P L A Y " 
 
 	 B u t t o n   D i s p l a y   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   T e x t   T o u c h 
 
 	 B u t t o n   T o u c h   T e x t   " T O U C H " 
 
 	 B u t t o n   T o u c h   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   T e x t   A u d i o 
 
 	 B u t t o n   A u d i o   T e x t   " A U D I O " 
 
 	 B u t t o n   A u d i o   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   4   T e x t   P l u g 
 
 	 B u t t o n   P l u g   T e x t   " P L U G " 
 
 	 B u t t o n   P l u g   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   T e x t   W i F i 
 
 	 B u t t o n   W i F i   T e x t   " W i - F i " 
 
 	 B u t t o n   W i F i   C o l o r   H o t P i n k 
 
 	 B u t t o n   6   T e x t   B l u e t o o t h 
 
 	 B u t t o n   B l u e t o o t h   T e x t     " B L U E T O O T H " 
 
 	 B u t t o n   B l u e t o o t h   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   7   T e x t   P o w e r 
 
 	 B u t t o n   P o w e r   T e x t   " P O W E R " 
 
 	 B u t t o n   P o w e r   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   8   T e x t   V i r t u a l K e y 
 
 	 B u t t o n   V i r t u a l K e y   T e x t   " V I R T U A L   K E Y " 
 
 	 B u t t o n   V i r t u a l K e y   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   9   T e x t     M e c h a n i c a l 
 
 	 B u t t o n   M e c h a n i c a l   T e x t   " M E C H A N I C A L " 
 
 	 B u t t o n   M e c h a n i c a l   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   1 0   T e x t     M i s c e l l a n e a 
 
 	 B u t t o n   M i s c e l l a n e a   T e x t   " M I S C E L L A N E A " 
 
 	 B u t t o n   M i s c e l l a n e a   C o l o r   D a r k C y a n 
 
 	 B u t t o n   1 2   T e x t   Z e r o 
 
 	 B u t t o n   Z e r o   T e x t   " Z E R O " 
 
 	 B u t t o n   Z e r o   C o l o r   B l a c k 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 	 B u t t o n   1 6   T e x t   E m e r g e n c y 
 
 	 B u t t o n   E m e r g e n c y   T e x t   " E M E R G E N C Y " 
 
 	 B u t t o n   E m e r g e n c y   C o l o r   R e d 
 
 	 B u t t o n   E m e r g e n c y   S l o t   S l o t _ E m e r g e n c y 
 
 R e t u r n 
 
 
 
 L a b e l   D i s p l a y 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   L u m i n o s i t y 
 
 	 B u t t o n   L u m i n o s i t y   T e x t   " L U M I N O S I T Y " 
 
 	 B u t t o n   L u m i n o s i t y   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   T e x t   R e d 
 
 	 B u t t o n   R e d   T e x t   " R E D " 
 
 	 B u t t o n   R e d   C o l o r   R e d 
 
 	 B u t t o n   3   T e x t   G r e e n 
 
 	 B u t t o n   G r e e n   T e x t   " G R E E N " 
 
 	 B u t t o n   G r e e n   C o l o r   G r e e n 
 
 	 B u t t o n   4   T e x t   B l u 
 
 	 B u t t o n   B l u   T e x t   " B L U E " 
 
 	 B u t t o n   B l u   C o l o r   B l u e 
 
 	 B u t t o n   5   T e x t   W h i t e 
 
 	 B u t t o n   W h i t e   T e x t   " W H I T E " 
 
 	 B u t t o n   W h i t e   C o l o r   W h i t e 
 
 	 B u t t o n   6   T e x t   B i t m a p 
 
 	 B u t t o n   B i t m a p   T e x t   " B I T M A P " 
 
 	 B u t t o n   B i t m a p   C o l o r   S k y B l u e 
 
 	 B u t t o n   7   T e x t   P h o t o 
 
 	 B u t t o n   P h o t o   T e x t   " P H O T O " 
 
 	 B u t t o n   P h o t o   C o l o r   S k y B l u e 
 
 	 B u t t o n   8   T e x t   V i d e o 
 
 	 B u t t o n   V i d e o   T e x t   " V I D E O " 
 
 	 B u t t o n   V i d e o   C o l o r   S k y B l u e 
 
 	 B u t t o n   9   T e x t   N o C o l o r 
 
 	 B u t t o n   N o C o l o r   T e x t   " N O   C O L O R " 
 
 	 B u t t o n   N o C o l o r   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 0   T e x t   C o l o r T e s t 
 
 	 B u t t o n   C o l o r T e s t   T e x t   " C O L O R   T E S T " 
 
 	 B u t t o n   C o l o r T e s t   C o l o r   S k y B l u e 
 
 	 ' B u t t o n   1 1   T e x t   - - - - - - - - 
 
 	 ' B u t t o n   - - - - - - - -   T e x t   " - - - - - - - - " 
 
 	 ' B u t t o n   - - - - - - - -   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 2   T e x t   T o u c h T e s t 
 
 	 B u t t o n   T o u c h T e s t   T e x t   " T O U C H   T E S T " 
 
 	 B u t t o n   T o u c h T e s t   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 3   T e x t   C o l o r R e c o g n i t i o n 
 
 	 B u t t o n   C o l o r R e c o g n i t i o n   T e x t   " C o l o r   R e c o g n i t i o n " 
 
 	 B u t t o n   C o l o r R e c o g n i t i o n   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   T o u c h 
 
 	 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   H e a r s e t I n 
 
 	 B u t t o n   H e a r s e t I n   T e x t   " H E A R S E T   I N " 
 
 	 B u t t o n   H e a r s e t I n   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   2   T e x t   H e a r s e t O u t 
 
 	 B u t t o n   H e a r s e t O u t   T e x t   " H E A R S E T   O U T " 
 
 	 B u t t o n   H e a r s e t O u t   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   3   T e x t   V o l u m e O u t 
 
 	 B u t t o n   V o l u m e O u t   T e x t   " V O L U M E   O U T " 
 
 	 B u t t o n   V o l u m e O u t   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   4   T e x t   V o l u m e U p 
 
 	 B u t t o n   V o l u m e U p   T e x t   " V O L U M E   U P " 
 
 	 B u t t o n   V o l u m e U p   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   5   T e x t   V o l u m e D w 
 
 	 B u t t o n   V o l u m e D w   T e x t   " V O L U M E   D W " 
 
 	 B u t t o n   V o l u m e D w   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   6   T e x t   V o l u m e T e s t 
 
 	 B u t t o n   V o l u m e T e s t   T e x t   " V O L U M E   T E S T " 
 
 	 B u t t o n   V o l u m e T e s t   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   7   T e x t   S p e a k e r D i s t 
 
 	 B u t t o n   S p e a k e r D i s t   T e x t   " S P E A K E R   D I S T . " 
 
 	 B u t t o n   S p e a k e r D i s t   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   8   T e x t   T e s t H e a r s e t 
 
 	 B u t t o n   T e s t H e a r s e t   T e x t   " T E S T   H E A R S E T " 
 
 	 B u t t o n   T e s t H e a r s e t   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   P l u g 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   P o w e r I n 
 
 	 B u t t o n   P o w e r I n   T e x t   " P O W E R   I N " 
 
 	 B u t t o n   P o w e r I n   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   2   T e x t   P o w e r O u t 
 
 	 B u t t o n   P o w e r O u t   T e x t   " P O W E R   O U T " 
 
 	 B u t t o n   P o w e r O u t   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   3   T e x t   M e m o r y I n 
 
 	 B u t t o n   M e m o r y I n   T e x t   " M E M O R Y   I N " 
 
 	 B u t t o n   M e m o r y I n   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   4   T e x t   M e m o r y O u t 
 
 	 B u t t o n   M e m o r y O u t   T e x t   " M E M O R Y   O U T " 
 
 	 B u t t o n   M e m o r y O u t   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   T e x t   U s b 3 I n 
 
 	 B u t t o n   U s b 3 I n   T e x t   " U S B 3   I N " 
 
 	 B u t t o n   U s b 3 I n   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   6   T e x t   U s b 3 O u t 
 
 	 B u t t o n   U s b 3 O u t   T e x t   " U S B 3   O U T " 
 
 	 B u t t o n   U s b 3 O u t   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   7   T e x t   U s b c I n 
 
 	 B u t t o n   U s b c I n   T e x t   " U S B C   I N " 
 
 	 B u t t o n   U s b c I n   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   8   T e x t   U s b c O u t 
 
 	 B u t t o n   U s b c O u t   T e x t   " U S B C   O U T " 
 
 	 B u t t o n   U s b c O u t   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   9   T e x t   H d m i I n 
 
 	 B u t t o n   H d m i I n   T e x t   " H D M I   I N " 
 
 	 B u t t o n   H d m i I n   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 0   T e x t   H d m i O u t 
 
 	 B u t t o n   H d m i O u t   T e x t   " H D M I   O U T " 
 
 	 B u t t o n   H d m i O u t   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 1   T e x t   H e a r s e t I n 
 
 	 B u t t o n   H e a r s e t I n   T e x t   " H E A R S E T   I N " 
 
 	 B u t t o n   H e a r s e t I n   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 2   T e x t   H e a r s e t O u t 
 
 	 B u t t o n   H e a r s e t O u t   T e x t   " H E A R S E T   O U T " 
 
 	 B u t t o n   H e a r s e t O u t   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   W i F i 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 ' B u t t o n   1   T e x t   E m p t y 1 
 
 	 ' B u t t o n   E m p t y 1   T e x t   " E M P T Y   1 " 
 
 	 ' B u t t o n   E m p t y 1   C o l o r   H o t P i n k 
 
 	 ' B u t t o n   2   T e x t   E m p t y 2 
 
 	 ' B u t t o n   E m p t y 2   T e x t   " E M P T Y   2 " 
 
 	 ' B u t t o n   E m p t y 2   C o l o r   H o t P i n k 
 
 	 ' B u t t o n   3   T e x t   E m p t y 3 
 
 	 ' B u t t o n   E m p t y 3   T e x t   " E M P T Y   3 " 
 
 	 ' B u t t o n   E m p t y 3   C o l o r   H o t P i n k 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   B l u e t o o t h 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 ' B u t t o n   1   T e x t   E m p t y 1 
 
 	 ' B u t t o n   E m p t y 1   T e x t   " E M P T Y   1 " 
 
 	 ' B u t t o n   E m p t y 1   C o l o r   R o y a l B l u e 
 
 	 ' B u t t o n   2   T e x t   E m p t y 2 
 
 	 ' B u t t o n   E m p t y 2   T e x t   " E M P T Y   2 " 
 
 	 ' B u t t o n   E m p t y 2   C o l o r   R o y a l B l u e 
 
 	 ' B u t t o n   3   T e x t   E m p t y 3 
 
 	 ' B u t t o n   E m p t y 3   T e x t   " E M P T Y   3 " 
 
 	 ' B u t t o n   E m p t y 3   C o l o r   R o y a l B l u e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   P o w e r 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   P o w e r I n 
 
 	 B u t t o n   P o w e r I n   T e x t   " P O W E R   I N " 
 
 	 B u t t o n   P o w e r I n   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   T e x t   P o w e r O u t 
 
 	 B u t t o n   P o w e r O u t   T e x t   " P O W E R   O U T " 
 
 	 B u t t o n   P o w e r O u t   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   4   T e x t   U s b P w r I n 
 
 	 B u t t o n   U s b P w r I n   T e x t   " U S B   P W R   I N " 
 
 	 B u t t o n   U s b P w r I n   C o l o r   Y e l l o w 5 
 
 	 B u t t o n   5   T e x t   U s b P w r O u t 
 
 	 B u t t o n   U s b P w r O u t   T e x t   " U S B   P W R   O U T " 
 
 	 B u t t o n   U s b P w r O u t   C o l o r   Y e l l o w 5 
 
 	 B u t t o n   7   T e x t   P o w e r O n 
 
 	 B u t t o n   P o w e r O n   T e x t   " P O W E R   O N " 
 
 	 B u t t o n   P o w e r O n   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   8   T e x t   P o w e r O F F 
 
 	 B u t t o n   P o w e r O F F   T e x t   " P O W E R   O F F " 
 
 	 B u t t o n   P o w e r O F F   C o l o r   Y e l l o w 6 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   V i r t u a l K e y 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   N u m b e r s 
 
 	 B u t t o n   N u m b e r s   T e x t   " N U M B E R S " 
 
 	 B u t t o n   N u m b e r s   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   2   T e x t   L e t t e r s 
 
 	 B u t t o n   L e t t e r s   T e x t   " L E T T E R S " 
 
 	 B u t t o n   L e t t e r s   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   3   T e x t   W i n d o w s M e n u 
 
 	 B u t t o n   W i n d o w s M e n u   T e x t   " W I N D O W S   M E N U " 
 
 	 B u t t o n   W i n d o w s M e n u   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   5   T e x t   P s S e q u e n c e s 
 
 	 B u t t o n   P s S e q u e n c e s   T e x t   " P S   S E Q U E N C E S " 
 
 	 B u t t o n   P s S e q u e n c e s   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   6   T e x t   G e t S e r v i c e 
 
 	 B u t t o n   G e t S e r v i c e   T e x t   " G e t - S e r v i c e " 
 
 	 B u t t o n   G e t S e r v i c e   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   7   T e x t   W i n U p d a t e H i s t o r y 
 
 	 B u t t o n   W i n U p d a t e H i s t o r y   T e x t   " W i n d o w s   u p d a t e   h i s t o r y " 
 
 	 B u t t o n   W i n U p d a t e H i s t o r y   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   8   T e x t   G e t S y s t e m I n f o 
 
 	 B u t t o n   G e t S y s t e m I n f o   T e x t   " G e t S y s t e m I n f o " 
 
 	 B u t t o n   G e t S y s t e m I n f o   C o l o r   S l a t e G r a y 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   M e c h a n i c a l 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   Z e r o 
 
 	 B u t t o n   Z e r o   T e x t   " Z E R O " 
 
 	 B u t t o n   Z e r o   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   2   T e x t   E n a b l e M o t o r s 
 
 	 B u t t o n   E n a b l e M o t o r s   T e x t   " E N A B .   M O T O R S " 
 
 	 B u t t o n   E n a b l e M o t o r s   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   3   T e x t   D i s a b l e M o t o r s 
 
 	 B u t t o n   D i s a b l e M o t o r s   T e x t   " D I S A B .   M O T O R S " 
 
 	 B u t t o n   D i s a b l e M o t o r s   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   9   T e x t   B u r n I n _ 7 - 2 4 
 
 	 B u t t o n   B u r n I n _ 7 - 2 4   T e x t   " B u r n I n   7 - 2 4 " 
 
 	 B u t t o n   B u r n I n _ 7 - 2 4   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   M i s c e l l a n e a 
 
 	 G o s u b     C l e a r B u t t o n s 
 
 	 B u t t o n   1   T e x t   S t a n d B y 
 
 	 B u t t o n   S t a n d B y   T e x t   " S T A N D   B Y " 
 
 	 B u t t o n   S t a n d B y   C o l o r   D a r k C y a n 
 
 	 B u t t o n   2   T e x t   S a f e R e m o v e 
 
 	 B u t t o n   S a f e R e m o v e   T e x t   " S A F E   R E M O V E " 
 
 	 B u t t o n   S a f e R e m o v e   C o l o r   D a r k C y a n 
 
 	 B u t t o n   3   T e x t   A l l I n 
 
 	 B u t t o n   A l l I n   T e x t   " A L L   I N " 
 
 	 B u t t o n   A l l I n   C o l o r   D a r k C y a n 
 
 	 B u t t o n   4   T e x t   A l l O u t 
 
 	 B u t t o n   A l l O u t   T e x t   " A L L   O U T " 
 
 	 B u t t o n   A l l O u t   C o l o r   D a r k C y a n 
 
 	 B u t t o n   5   T e x t   V i r t u a l K e y b o a r d 
 
 	 B u t t o n   V i r t u a l K e y b o a r d   T e x t   " V   K E Y B O A R D " 
 
 	 B u t t o n   V i r t u a l K e y b o a r d   C o l o r   D a r k C y a n 
 
 	 B u t t o n   6   T e x t   J o g W i t h M o u s e 
 
 	 B u t t o n   J o g W i t h M o u s e   T e x t   " J o g   w i t h   M o u s e " 
 
 	 B u t t o n   J o g W i t h M o u s e   C o l o r   D a r k C y a n 
 
 	 B u t t o n   7   T e x t   C a l i b r a t e 
 
 	 B u t t o n   C a l i b r a t e   T e x t   " C A L I B R A T E " 
 
 	 B u t t o n   C a l i b r a t e   C o l o r   D a r k C y a n 
 
 	 B u t t o n   8   T e x t   U s b P w r I n 
 
 	 B u t t o n   U s b P w r I n   T e x t   " U S B   P W R   I N " 
 
 	 B u t t o n   U s b P w r I n   C o l o r   D a r k C y a n 
 
 	 B u t t o n   9   T e x t   U s b P w r O u t 
 
 	 B u t t o n   U s b P w r O u t   T e x t   " U S B   P W R   O U T " 
 
 	 B u t t o n   U s b P w r O u t   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 1   T e x t   G e t S y s t e m I n f o 
 
 	 B u t t o n   G e t S y s t e m I n f o   T e x t   " G e t   S y s t e m   I n f o " 
 
 	 B u t t o n   G e t S y s t e m I n f o   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M a i n M e n u 
 
 	 B u t t o n   M a i n M e n u   T e x t   " M A I N   M E N U " 
 
 	 B u t t o n   M a i n M e n u   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C l o s e A l l 
 
 	 B u t t o n   C l o s e A l l   T e x t   " C L O S E   A L L " 
 
 	 B u t t o n   C l o s e A l l   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   N u m b e r s 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 1   =     " S P A C E " 
 
 	 P r e s s K e y s   s 1 
 
 	 P r e s s K e y s   1   2   3   4   5   6   7   8   9   0   E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l   L e t t e r s 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 P r e s s K e y s   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   E n t e r 
 
 	 P r e s s K e y s   B   C   C     E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l   W i n d o w s M e n u 
 
 	 ' P r e s s K e y   S p a c e 
 
 	 P r e s s K e y s   W I N D O W S   X 
 
 	 W a i t   S e c o n d s   2 
 
 R e t u r n 
 
 
 
 L a b e l   P s S e q u e n c e s 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ D i r . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   G e t S e r v i c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ G e t - S e r v i c e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   W i n U p d a t e H i s t o r y 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ W i n 1 0 - u p d a t e - h i s t o r y . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   G e t S y s t e m I n f o 
 
 	 C O M   D i s c a r d O u t B u f f e r 
 
 	 C O M   W r i t e S t r i n g   " S e n d S y s t e m I n f o "   +   C R L F 
 
 	 F i l e N a m e   =   " i n f o . c s v " 
 
 	 G o s u b   R e c e i v e F i l e F r o m C O M 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   L u m i n o s i t y 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 8   B l a c k   G r a y 5 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ L u m i n o s i t y B i g P e n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 R e t u r n 
 
 
 
 L a b e l   V i r t u a l K e y b o a r d 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 9   C o l o r   F l a s h i n g 8   B l u e 9     C y a n 9 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ V i r t u a l K e y b o a r d . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 W a i t   S e c o n d s   2 
 
 	 B u t t o n   2 9   C o l o r   M e d i u m B l u e 
 
 R e t u r n 
 
 
 
 L a b e l   R e d 
 
 	 C O M   W r i t e S t r i n g   " R E D "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   G r e e n 
 
 	 C O M   W r i t e S t r i n g   " G R E E N "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   B l u 
 
 	 C O M   W r i t e S t r i n g   " B L U "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   W h i t e 
 
 	 C O M   W r i t e S t r i n g   " W H I T E "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   N o C o l o r 
 
 	 C O M   W r i t e S t r i n g   " N O   C O L O R "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   B i t m a p 
 
 	 C O M   W r i t e S t r i n g   " B I T M A P "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   P h o t o 
 
 	 C O M   W r i t e S t r i n g   " P H O T O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   V i d e o 
 
 	 C O M   W r i t e S t r i n g   " V I D E O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   S t a n d B y 
 
 	 G o s u b     Z e r o 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b   P o w e r I n 
 
 	 G o s u b   U s b 3 I n 
 
 	 G o s u b   M e m o r y I n 
 
 	 G o s u b   U s b c O u t 
 
 	 G o s u b   H d m i O u t 
 
 	 G o s u b   U s b P w r O u t 
 
 	 G o s u b   H e a r s e t O u t 
 
 	 G o s u b   O n O f f O u t 
 
 	 G o s u b   V o l u m e O u t 
 
 	 G o s u b   D i s a b l e M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   A l l I n 
 
 	 G o s u b   P o w e r I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U s b 3 I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U s b c I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H d m i I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U s b P w r I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H e a r s e t I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   M e m o r y I n 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b   O n O f f I n 
 
 	 ' G o s u b   V o l u m e I n U p 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   V o l u m e O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   A l l O u t 
 
 	 G o s u b   P o w e r O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U s b 3 O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U s b c O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H d m i O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U s b P w r O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H e a r s e t O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   M e m o r y O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   O n O f f O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b   V o l u m e I n D w 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   V o l u m e O u t 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   M u l t i 
 
 	 v 2   =   I n p u t   "   H o w   m a n y   l o o p s ?   " 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 ' G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   S a f e R e m o v e 
 
 	 G o s u b   Z e r o 
 
 	 G o s u b   P o w e r O u t 
 
 	 G o s u b   U s b 3 O u t 
 
 	 G o s u b   U s b c O u t 
 
 	 G o s u b   H d m i O u t 
 
 	 G o s u b   U s b P w r O u t 
 
 	 G o s u b   H e a r s e t O u t 
 
 	 G o s u b   O n O f f O u t 
 
 	 G o s u b   V o l u m e O u t 
 
 	 G o s u b   M e m o r y O u t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   B u t t o n F a s t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B u r n I n _ 7 - 2 4 
 
 	 F o r   v 9   =   1   T o   1 0 0 0 0 
 
 	 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ B u r n I n 7 - 2 4 . s e q " 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 P r i n t   " C y c l e   n u m b e r : "   +   v 9 
 
 ' 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 S l o t ( 1 0 0 )   =   S l o t ( 1 0 0 )   +   1 
 
 	 	 B e e p 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   C a l i b r a t e 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 G o s u b     Z e r o 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S p e e d T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 L a b e l   S p e a k e r D i s t 
 
 	 W i n d o w   M i n S i z e 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 5   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 S o u n d D i s t 2 n d H a r m M a x   =   4 0 0 
 
 	 S o u n d D i s t 3 r d H a r m M a x   =   4 0 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 5   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   T e s t H e a r s e t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 6   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   5 0 
 
 	 S o u n d N o i s e M a x   =   3 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 6   C o l o r   L i g h t S t e e l B l u e 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o T e s t 
 
 	 ' G o s u b   " Z E R O " 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
         ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   l e f t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 8 . 8 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   P e n S i n g l e 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 2 . 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   P e n S i n g l e 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   0 9 6 . 2 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   P e n S i n g l e 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 
 
 	 ' G o s u b   " Z E R O " 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 4   C o l o r   F l a s h i n g 8   L i g h t S t e e l B l u e   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 G o s u b   V o l u m e T e s t 2 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 4   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 ' G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b   S t a n d B y 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 2 
 
 	 ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   v o l u m e   l e v e l   h i g h 
 
 	 G o s u b   V o l u m e U p 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b   V o l u m e O u t 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 ' S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 G o s u b   V o l u m e D w 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b   V o l u m e O u t 
 
 	 ' S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O L O R   R E C O G N I T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 L a b e l   C o l o r T e s t 
 
 	 F i l e H e a d e r T e s t N a m e   =   " C O L O R   T E S T " 
 
 	 G o s u b   W r i t e F i l e H e a d e r 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   1 0   C o l o r   F l a s h i n g 8   R e d   S k y B l u e 
 
 	 
 
 	 G o s u b   R e d 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C o l o r R e c o g n i t i o n 
 
 	 I f   s 1   =   " R E D " 
 
 	 	 s 1   =   " R e d   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " R e d   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   G r e e n 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C o l o r R e c o g n i t i o n 
 
 	 I f   s 1   =   " G R E E N " 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   B l u 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C o l o r R e c o g n i t i o n 
 
 	 I f   s 1   =   " B L U " 
 
 	 	 s 1   =   " B l u   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " B l u   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 
 
 	 G o s u b   N o C o l o r 
 
 R e t u r n 
 
 
 
 L a b e l   C o l o r R e c o g n i t i o n 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E D   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 1   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   G R E E N   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 2   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   B L U   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 3   =   S l o t ( S l o t _ F r e q ) 
 
 	 ' '   - - - - - - - - - - - - - - - - - - - - - - - - -   C L E A R   f i l t e r 
 
 	 ' S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 ' S l o t   S l o t _ S 3   =   0 
 
 	 ' W a i t   S e c o n d s   0 . 2 
 
 	 ' v 4   =   S l o t ( S l o t _ F r e q ) 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E C O G N I Z E   C O L O R 
 
 	 I f   v 1   >   v 2   A n d   v 1   >   v 3 
 
 	 	 s 1   =   " R E D " 
 
 	 E l s e 
 
 	 	 I f   v 2   >   v 1   A n d   v 2   >   v 3 
 
 	 	 	 s 1   =   " G R E E N " 
 
 	 	 E l s e 
 
 	 	 	 I f   v 3   >   v 1   A n d   v 3   >   v 2 
 
 	 	 	 	 s 1   =   " B L U " 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 P r i n t   v 1   +   "   "   +   v 2   +   "   "   +   v 3   +   "   "   +   s 1 
 
 R e t u r n 
 
 
 
 L a b e l   T o u c h T e s t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ T o u c h T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   S t a r t W x m A p p T a b l e t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S t a r t W X M _ A p p T a b l e t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   S l i d e P S W 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S l i d e P s w . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 V a r i a b l e   S t r i n g   F i l e H e a d e r T e s t N a m e 
 
 L a b e l   W r i t e F i l e H e a d e r 
 
 	 s 1   =   " - - - - - - - - - - - - - - - - - - - - - - - - - "   +   C R L F 
 
 	 s 1   =   s 1   +   F i l e H e a d e r T e s t N a m e   +   C R L F 
 
 	 s 1   =   s 1   +   F o r m a t ( N o w ,   " d d / M M M / y y y y   H H : m m : s s " )   +   C R L F 
 
 	 s 1   =   s 1   +   " - - - - - - - - - - - - - - - - - - - - - - - - - " 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p                                                                                                                   ' 
 
 	 E n d I f 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 G o s u b   E x e c S p e e d 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 P r i n t   "   S e q u e n c e :   "   +   S e q u e n c e C m d   +   C R L F 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 S e l e c t   U C a s e ( S e q u e n c e C m d ) 
 
                         '   - - - - - - - - - - - - - - - - - - -   e x i t   f r o m   t h e   s e q u e n c e   - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " E N D S E Q " 
 
 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   s p e c i a l   m u l t i p l e   a c t i o n s   - - - - - - - - - - - 
 
 	 	 	 C a s e   " S L I D E " 	 	           '   s l i d e   b e f o r e   i n s e r t   P S W 
 
 	 	 	 	 G o s u b   S l i d e 
 
 	 	 	 C a s e   " Z E R O "                             '   m o v e   p e n   t o   X = 0   a n d   Y = 0   p o s i t i o n 
 
 	 	 	 	 G o s u b   Z e r o 
 
 	 	 	 C a s e   " A L L   O U T "                       '   a l l   p l u g   o u t 
 
 	 	 	 	 G o s u b   A l l O u t 
 
 	 	 	 C a s e   " A L L   I N "                         '   a l l   p l u g   i n 
 
 	 	 	 	 G o s u b   A l l I n 
 
 	 	       '   - - - - - - - - - - - - - - - - - - - - -   s i n g l e   a c t i o n   - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " P O W E R   I N "                     '   p o w e r   p l u g   i n 
 
 	 	 	 	 G o s u b   P o w e r I n 
 
 	 	 	 C a s e   " P O W E R   O U T "                   '   p o w e r   p l u g   o u t 
 
 	 	 	 	 G o s u b   P o w e r O u t 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S "           ' e n a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b   E n a b l e M o t o r s 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S "         '   d i s a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b   D i s a b l e M o t o r s 
 
 	 	 	 C a s e   " P E N   U P "                         '   m o v e   p e n   u p 
 
 	 	 	 	 G o s u b   P e n U p 
 
 	 	 	 C a s e   " P E N   D O W N "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 G o s u b   P e n D o w n 
 
 	 	 	 C a s e   " P E N   S I N G L E "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 G o s u b   P e n S i n g l e 
 
 	 	 	 C a s e   " P E N   D O U B L E "                 '   d o u b l e   c l i c k 
 
 	 	 	 	 G o s u b   P e n D o u b l e 
 
 	 	 	 C a s e   " P O W E R   C Y C L E "               '   p u s h   p o w e r   b u t t o n ,   w a i t   t h e n   r e l e a s e 
 
 	 	 	 	 ' G o s u b   P o w e r C y c l e 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b   H d m i I n 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b   H d m i O u t 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b   U s b 3 I n 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b   U s b 3 O u t 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b   U s b c I n 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b   U s b c O u t 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b   U s b P w r I n 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b   U s b P w r O u t 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b   M e m o r y I n 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b   M e m o r y O u t 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b   H e a r s e t I n 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b   H e a r s e t O u t 
 
 	 	 	 C a s e   " C L O S E   A L L " 
 
 	 	 	 	 G o s u b   C l o s e A l l 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   d i s p l a y   a c t i o n s   - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " B I T M A P " 
 
 	 	 	 	 G o s u b     B i t m a p 
 
 	 	 	 C a s e   " P H O T O " 
 
 	 	 	 	 G o s u b     P h o t o 
 
 	 	 	 C a s e   " V I D E O " 
 
 	 	 	 	 G o s u b     V i d e o 
 
 	 	 	 C a s e   " R E D " 
 
 	 	 	 	 G o s u b     R e d 
 
 	 	 	 C a s e   " G R E E N " 
 
 	 	 	 	 G o s u b     G r e e n 
 
 	 	 	 C a s e   " B L U " 
 
 	 	 	 	 G o s u b     B l u 
 
 	 	 	 C a s e   " N O   C O L O R " 
 
 	 	 	 	 G o s u b     N o C o l o r 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   W A I T   M O T O R S   - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " W A I T   M O T O R S " 
 
 	 	 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   G E T   S Y S T E M   I N F O   - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " G e t S y s t e m I n f o " 
 
 	 	 	 	 G o s u b     G e t S y s t e m I n f o 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   I s t r u c t i o n   w i t h   p a r a m e t e r s   - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   U C a s e ( s 1 ) 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " M O V E S L O W " 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 G o s u b   M o v e S l o w X Y 
 
 	 	 	 	 	 C a s e   " D R A W C I R C L E " 
 
 	 	 	 	 	 	 D r a w C i r c l e _ X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ R a d i u s   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   4 ) 
 
 	 	 	 	 	 	 G o s u b   D r a w C i r c l e 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e   " P R E S S K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 1 ) 
 
 	 	 	 	 	 	 P r e s s K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " S E N D K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 0 ) 
 
 	 	 	 	 	 	 S e n d K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " P E N T Y P I N G " 
 
 	 	 	 	 	 	 P E N _ T O U C H _ T I M E   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 G o s u b   P e n T y p i n g 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d   +   C R L F 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e , " . s e q " , " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s "   +   C R L F 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t _ E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t       '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h   l i m i t s ) 
 
 	 D e s t X   =   L i m i t ( D e s t X ,   D e s t x M i n ,   D e s t x M a x ) 
 
 	 D e s t Y   =   L i m i t ( D e s t Y ,   D e s t y M i n ,   D e s t y M a x ) 
 
 	 I f   L i m i t R e a c h e d 
 
 	 	 L o a d   s o u n d \ G e i g e r C l i c k _ 1 6 . w a v 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h o u t   u s i n g   l i m i t s ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z e r o 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b   E n a b l e M o t o r s 
 
 	 G o s u b   P e n U p 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b   P r i n t V a l u e s 
 
 	 ' G o s u b   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	     '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 6 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   d e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   1               '   8   m o v e   t o   M M 
 
 	 G o s u b     H o m e 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	     '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 6 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   d e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   1               '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   i f   s e n s o r   i s   a c t i v e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   s e a r c h   t h e   s e n s o r 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   f r o m   t h e   s e n s o r 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   t o   I n i t i a l P o s i t i o n 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1                   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 5 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 5 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     D I G I T A L   M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 
 
 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ T a b l e t P o w e r       '   T a b l l e t   p o w e r   s e n s i n g 
 
 
 
 L a b e l   P o w e r O u t 
 
 	 S l o t ( S L O T _ P O W E R )   =   P O W E R _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   P o w e r I n 
 
 	 S l o t ( S L O T _ P O W E R )   =   P O W E R _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l   U s b 3 O u t 
 
 	 S l o t ( S L O T _ U S B 3 )   =   U S B 3 _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   U s b 3 I n 
 
 	 S l o t ( S L O T _ U S B 3 )   =   U S B 3 _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   U s b c I n 
 
 	 S l o t ( S L O T _ U S B C )   =   U S B C _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   U s b c O u t 
 
 	 S l o t ( S L O T _ U S B C )   =   U S B C _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   H d m i O u t 
 
 	 S l o t ( S L O T _ H D M I )   =   H D M I _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   H d m i I n 
 
 	 S l o t ( S L O T _ H D M I )   =   H D M I _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   U s b P w r O u t 
 
 	 S l o t ( S L O T _ U S B P W R )   =   U S B P W R _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   U s b P w r I n 
 
 	 S l o t ( S L O T _ U S B P W R )   =   U S B P W R _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R e c e i v e F i l e F r o m C O M 
 
 	 V a r i a b l e   S t r i n g   F i l e N a m e 
 
 	 V a r i a b l e   S t r i n g   S t r 1 
 
 	 ' 
 
 	 C O M   D i s c a r d I n B u f f e r 
 
 	 ' 
 
 	 S t r 1   =   " " 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 s 1   =   C O M _ R e c e i v e d 
 
 	 	 I f   s 1   < >   " " 
 
 	 	 	 s 1   =   R e p l a c e ( s 1 ,   " { { { C R L F } } } " ,   C R L F ) 
 
 	 	 	 S t r 1   =   S t r 1   +   s 1 
 
 	 	 	 I f   s 1   =   " { { { F i l e E n d M a r k e r } } } " 
 
 	 	 	 	 S t r 1   =   R e p l a c e ( S t r 1 ,   " { { { F i l e E n d M a r k e r } } } " ,   " " ) 
 
 	 	 	 	 S a v e   D e l e t e F i l e   F i l e N a m e 
 
 	 	 	 	 S a v e   S t r i n g T o F i l e   S t r 1   F i l e N a m e 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l   O n O f f O u t 
 
 	 S l o t ( S L O T _ O N O F F )   =   O N O F F _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   O n O f f I n 
 
 	 S l o t ( S L O T _ O N O F F )   =   O N O F F _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e O u t 
 
 	 S l o t ( S L O T _ V O L U M E )   =   V O L U M E _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e U p 
 
 	 S l o t ( S L O T _ V O L U M E )   =   V O L U M E _ I N _ U P 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e D w 
 
 	 S l o t ( S L O T _ V O L U M E )   =   V O L U M E _ I N _ D W 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   M e m o r y O u t 
 
 	 S l o t ( S L O T _ M E M O R Y )   =   M E M O R Y _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   M e m o r y I n 
 
 	 S l o t ( S L O T _ M E M O R Y )   =   M E M O R Y _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   H e a r s e t O u t 
 
 	 S l o t ( S L O T _ H E A R S E T )   =   H E A R S E T _ O U T 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   H e a r s e t I n 
 
 	 S l o t ( S L O T _ H E A R S E T )   =   H E A R S E T _ I N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   P e n U p 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 ' G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   P e n D o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 ' G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   P e n S i n g l e 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   P e n D o u b l e 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   S l e e p A l l S e r v o 
 
 R e t u r n 
 
 
 
 L a b e l   P e n T y p i n g 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l   P o w e r O n 
 
 	 G o s u b     U s b 3 I n 
 
 	 B u t t o n   7   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O n O f f I n 
 
 	 W a i t   S e c o n d s   3 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   >   5 0 0 
 
 	 	 B u t t o n   7   C o l o r   P a l e G r e e n 
 
 	 	 B u t t o n   8   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 P r i n t   " P O W E R   O N   F A I L U R E " 
 
 	 E n d I f 
 
 	 G o s u b   O n O f f O u t 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   P o w e r O F F 
 
 	 G o s u b     U s b 3 I n 
 
 	 B u t t o n   7   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   8   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O n O f f I n 
 
 	 W a i t   S e c o n d s   1 0 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   <   5 0 0 
 
 	 	 B u t t o n   7   C o l o r   B l a c k 
 
 	 	 B u t t o n   8   C o l o r   B l a c k 
 
 	 E n d I f 
 
 	 G o s u b   O n O f f O u t 
 
 R e t u r n 
 
 
 
 L a b e l   E n a b l e M o t o r s 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   D i s a b l e M o t o r s 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   0 
 
 R e t u r n 
 
 
 
 L a b e l   S l e e p A l l S e r v o 
 
 	 S l o t ( S L O T _ U S B 3 )   =   S l e e p 
 
 	 S l o t ( S L O T _ H D M I )   =   S l e e p 
 
 	 S l o t ( S L O T _ U S B P W R )   =   S l e e p 
 
 	 S l o t ( S L O T _ O N O F F )   =   S l e e p 
 
 	 S l o t ( S L O T _ P O W E R )   =   S l e e p 
 
 	 S l o t ( S L O T _ V O L U M E )   =   S l e e p 
 
 	 S l o t ( S L O T _ M E M O R Y )   =   S l e e p 
 
 	 S l o t ( S L O T _ H E A R S E T )   =   S l e e p 
 
 	 S l o t ( S L O T _ P E N )   =   S l e e p 
 
 	 S l o t ( S L O T _ U S B C )   =   S l e e p 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     E M E R G E N C Y   &   S P E E D 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ E m e r g e n c y 
 
 V a r i a b l e   N u m e r i c   S l o t _ S p e e d 
 
 
 
 L a b e l   E m e r g e n c y 
 
 	 G o s u b   D i s a b l e A l l B u t t o n s 
 
 	 B u t t o n   1 6   E n a b l e d 
 
 	 B u t t o n   1 6   C o l o r   F l a s h i n g 7   Y e l l o w   R e d 
 
 	 K e y J o g _ S p e e d   =   0 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 W a i t   S e c o n d s   0 . 2 	   ' 1 . 1 
 
 	 	 ' L o a d   s o u n d \ A l a r m 1 0 b . w a v 
 
 	 	 L o a d   s o u n d \ C l i c k 1 . w a v 
 
 	 N e x t 
 
 S t o p 
 
 
 
 L a b e l   E x e c S p e e d 
 
 	 v 9   =   S l o t ( S l o t _ S p e e d ) 
 
 	 v 9   =   3   +   6   *   v 9   /   1 0 0 0 
 
 	 O p t i o n   S p e e d   V 9 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   E N A B L E / D I S A B L E   B U T T O N S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E n a b l e A l l B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   E n a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   D i s a b l e A l l B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   D i s a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S l i d e 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l   J o g W i t h M o u s e 
 
 	 G o s u b   E n a b l e M o t o r s 
 
 	 B u t t o n   8   T e x t   " J O G   S T O P " 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 G o s u b   P r i n t V a l u e s 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l   J o g S t o p 
 
 	 B u t t o n   8   T e x t   " J O G   w i t h   M o u s e " 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   w i t h   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E x e c K e y s 
 
 	 V a r i a b l e   N u m e r i c   K e y J o g _ S p e e d 
 
 	 V a r i a b l e   N u m e r i c   J o g S p e e d 
 
 	 J o g S p e e d   =   K e y J o g _ S p e e d   /   1 0 0 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e   K e y ( " S H I F T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 1 
 
 	 	 C a s e   K e y ( " C T R L " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 1 
 
 	 	 C a s e   K e y ( " A L T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 0 1 
 
 	 E n d S e l e c t 
 
 	 ' 
 
 	 I f   K e y ( " R i g h t " ) 
 
 	 	 D e s t X   =   D e s t X   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " L e f t " ) 
 
 	 	 D e s t X   =   D e s t X   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " U p " ) 
 
 	 	 D e s t Y   =   D e s t Y   +   J o g S p e e d 	 	 ' p r o t o 
 
 	 	 ' D e s t Y   =   D e s t Y   -   J o g S p e e d 	 	 ' L e o 
 
 	 E n d I f 
 
 	 I f   K e y ( " D o w n " ) 
 
 	 	 D e s t Y   =   D e s t Y   -   J o g S p e e d 	 	 ' p r o t o 
 
 ' 	 	 D e s t Y   =   D e s t Y   -   J o g S p e e d 	 	 ' L e o 
 
 	 E n d I f 
 
 	 ' 
 
 	 ' I f   K e y ( " P a g e U p " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   +   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' I f   K e y ( " P a g e D o w n " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   -   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   P r i n t V a l u e s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P R I N T   C O O R D I N A T E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P r i n t V a l u e s 
 
 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 s 1   =               " D e s t X = "   +   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " ) 
 
 	 s 1   =   s 1   +   "   D e s t Y = "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 P r i n t   C R L F   +   s 1 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   v 1 
 
 ' E X E C   D e s t X   =   1 2 
 
 